home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / util3 / dsq10.lha / DiSk_Quicklog next >
AmigaDOS Script File  |  1995-08-19  |  967b  |  47 lines
  1. .key DIR/A,OUTPUT/A,DATES/S,INCR/S,RESET/S
  2. .bra {
  3. .ket }
  4.  
  5. ; $VER: DiSk_Quicklog v1.03 (29.4.95)
  6.  
  7. If {reset} EQ "reset"
  8.     Echo "Variables reset"
  9.     C:Delete >NIL: ENV:incr
  10.     Quit
  11. EndIf
  12.  
  13. If {incr} EQ "incr"
  14.     If NOT EXISTS ENV:incr
  15.         Echo >ENV:incr "1" NOLINE
  16.     EndIf
  17. EndIf
  18.  
  19. Echo "*nDiSk_Quicklog.  © 1995 Adam Chapman*n"
  20. Echo "Compiling directory list..."
  21. Echo "Source:   {dir}"
  22. Echo "Dest  :   {output}"
  23.  
  24. If {dates} EQ "dates"
  25.     Echo "Dates :   ON"
  26.     Cd {dir}
  27.     C:List >T:DiSk_QuicklogList {dir} ALL NOHEAD LFORMAT "%P%N"
  28. Else
  29.     Echo "Dates :   OFF"
  30.     Cd {dir}
  31.     C:List >T:DiSk_QuicklogList {dir} ALL NODATES NOHEAD LFORMAT "%P%N"
  32. EndIf
  33.  
  34. Echo "*nCatalog scan complete.  Now Sorting for output...*n"
  35.  
  36. If {incr} EQ "incr"
  37.     C:Sort FROM T:DiSk_QuicklogList TO {output}.$incr
  38.     C:Eval >ENV:incr2 $incr + 1
  39.     C:Delete >NIL: ENV:incr
  40.     C:Rename >NIL: ENV:incr2 ENV:incr
  41. Else
  42.     C:Sort FROM T:DiSk_QuicklogList TO {output}
  43. EndIf
  44.  
  45. C:Delete >NIL: T:DiSk_QuicklogList
  46. Echo "Catalog compiled!*n"
  47.